home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / xlisp2.arc / TRACE.LSP < prev    next >
Text File  |  1985-01-01  |  768b  |  20 lines
  1. (setq *tracelist* nil)
  2.  
  3. (defun evalhookfcn (expr &aux val)
  4.        (if (and (consp expr) (member (car expr) *tracelist*))
  5.            (progn (princ ">>> ") (print expr)
  6.                   (setq val (evalhook expr evalhookfcn nil))
  7.                   (princ "<<< ") (print val))
  8.            (evalhook expr evalhookfcn nil)))
  9.  
  10. (defun trace (fun)
  11.        (if (not (member fun *tracelist*))
  12.        (progn (setq *tracelist* (cons fun *tracelist*))
  13.                   (setq *evalhook* evalhookfcn)))
  14.        *tracelist*)
  15.  
  16. (defun untrace (fun)
  17.        (if (null (setq *tracelist* (delete fun *tracelist*)))
  18.            (setq *evalhook* nil))
  19.        *tracelist*)
  20.